home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / chkdte.arc / CHKDTE.CLP next >
Text File  |  1991-12-04  |  167b  |  9 lines
  1. PGM (&DATE &OK)
  2.   DCL &DATE *CHAR 6
  3.   DCL &OK *LGL
  4.  
  5.     CHGVAR &OK '0'
  6.     CVTDAT &DATE &DATE *MDY *MDY  *NONE
  7.     MONMSG CPF0555 EXEC(CHGVAR &OK '1')
  8. RETURN
  9.